home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / m2 / rexxm2error.lha / RexxM2Error / GoldED / M2Error.ged next >
Encoding:
Text File  |  1994-03-20  |  2.5 KB  |  94 lines
  1. /* $VER: M2Error V 0.96 © 1994 Fin Schuppenhauer                  */
  2. /**
  3.    Lädt die Fehlerdatei zum aktuellen Text und zeigt den nächsten
  4.    Fehler an.
  5.  
  6.    14. März 1994 0.9
  7.    19. März 1994 Völlig neu geschrieben; benutzt jetzt das Pro-
  8.                  gramm "RexxM2Error" -> 0.95
  9.    20. März 1994 Abfrage, ob der aktuelle Quelltext auch mit dem von
  10.                  "RexxM2Error" übereinstimmt -> 0.96
  11. **/
  12.  
  13. OPTIONS RESULTS                             /* enable return codes     */
  14.  
  15. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  16.     address 'GOLDED.1'
  17.  
  18. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  19. OPTIONS FAILAT 6                            /* ignore warnings         */
  20. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  21.  
  22.  
  23. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  24.  
  25.  
  26. 'QUERY CAT'
  27. isGerman = (result = "deutsch")
  28.  
  29. 'QUERY DOC VAR DOCNAME'
  30.  
  31. if (right(docname, 4) ~= '.mod') & (right(docname, 4) ~= '.mod') then do
  32.    if (isGerman) then
  33.       'REQUEST BODY="Dies ist kein Modula-2 Quelltext!" BUTTON="Das stimmt"'
  34.    else
  35.       'REQUEST BODY="This is no Modula-2 source!" BUTTON="I see"'
  36.    'UNLOCK'
  37.    EXIT
  38. end
  39.  
  40. if ~show('P', 'REXXM2ERROR') then do
  41.    if (isGerman) then
  42.       'REQUEST BODY="RexxM2Error läuft nicht!|Bitte starten." BUTTON=Ok'
  43.    else
  44.       'REQUEST BODY="RexxM2Error is not running!|Please start that program." BUTTON=Ok'
  45.    'UNLOCK'
  46.    EXIT
  47. end
  48.  
  49. /* Stimmt der aktuelle Quelltext mit dem von "RexxM2Error" überein? */
  50. ADDRESS 'REXXM2ERROR' 'QUERY FILE'
  51. if rc = 0 then
  52.    if result ~= docname'E' then do
  53.       if (isGerman) then
  54.          'REQUEST BODY="Fehlerdatei paßt nicht!" BUTTON=Ok'
  55.       else
  56.          'REQUEST BODY="Errorfile does not match!" BUTTON=Ok'
  57.       'UNLOCK'
  58.       EXIT
  59.    end
  60.  
  61. ADDRESS 'REXXM2ERROR' 'ERROR'
  62. errinfo = result
  63.  
  64. if rc = 0 then do
  65.    offset = word(errinfo,1)
  66.    errnum = word(errinfo,2)
  67.    errmsg = subword(errinfo,3)
  68.    'GOTO BYTE='offset
  69.    if (isGerman) then
  70.       'REQUEST BODY="Fehler Nummer 'errnum':|'errmsg'" BUTTON=Ok'
  71.    else
  72.       'REQUEST BODY="Error number 'errnum':|'errmsg'" BUTTON=Ok'
  73.    end
  74. else do
  75.    if (isGerman) then
  76.       'REQUEST BODY="Kein weiterer Fehler." BUTTON=Ok'
  77.    else
  78.       'REQUEST BODY="No more errors." BUTTON=Ok'
  79.    ADDRESS 'REXXM2ERROR' 'RESET'
  80. end
  81.  
  82.  
  83. /* ---------------------------- END OF YOUR CODE --------------------- */
  84.  
  85. 'UNLOCK' /* VERY important: unlock GUI */
  86. EXIT
  87.  
  88. SYNTAX:
  89.  
  90. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  91. 'UNLOCK'
  92. EXIT
  93.  
  94.